home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 3 / BBS in a box - Trilogy III.iso / Files / Prog / L-M / MacOberon 4.0 / Toolbox Interfaces / MacText.Mod (.txt) < prev    next >
Encoding:
Oberon Text  |  1993-10-25  |  5.5 KB  |  105 lines  |  [.Ob./.Ob5]
  1. Syntax10.Scn.Fnt
  2. Syntax10b.Scn.Fnt
  3. Syntax10i.Scn.Fnt
  4. ParcElems
  5. Alloc
  6. MODULE MacText;    (*od 25.10.93*)
  7. (* This Module contains some essential constants, data types and routines from
  8. the NEW Inside Macintosh volume
  9.             Text
  10. Edit.Open DK.MacOberonApp.Text for more information on how to create
  11. standalone Macintosh applications using MacOberon. *)
  12. IMPORT
  13.     SYSTEM, ME:=MacMemory, IM:=MacImaging;
  14. CONST
  15.         teJustLeft*=0; teJustCenter*=1; teJustRight*=-1;
  16. (* Font Manager *)
  17.         FontInfo*  =  RECORD
  18.             ascent*:   INTEGER;
  19.             descent*:  INTEGER;
  20.             widMax*:   INTEGER;
  21.             leading*:  INTEGER
  22.         END;
  23. (* Text Edit *)
  24.         TERec*=RECORD
  25.             destRect*, viewRect*, selRect*: IM.Rect; lineHeight*, fontAscent*: INTEGER;
  26.             selPoint*: IM.Point; selStart*, selEnd*, active: INTEGER; wordBreak*, clikLoop*: PROCEDURE;
  27.             clickTime: LONGINT; clickLoc: INTEGER; caretTime: LONGINT;
  28.             caretState, just*, teLength*: INTEGER; hText*: ME.Handle;
  29.             recalBack, recalLines, clikStuff, crOnly*, txFont*, txFace*, txMode*, txSize*: INTEGER;
  30.             inPort*: IM.GrafPtr; highHook, caretHook: PROCEDURE;
  31.             nLines*: INTEGER; lineStarts*: ARRAY 16000 OF INTEGER
  32.         END;
  33.         TEPtr*=POINTER- TO TERec;
  34.         TEHandle*=POINTER- TO RECORD p*: TEPtr END;
  35. (* Font Manager *)
  36.     PROCEDURE- InitFonts*    0A8H, 0FEH;
  37.     PROCEDURE- GetFontName*(fontNum: INTEGER; VAR theName: ME.Str255)    0A8H, 0FFH;
  38.     PROCEDURE- GetFNum*(fontName: ME.Str255; VAR theNum: INTEGER)    0A9H, 000H;
  39.     PROCEDURE- GetFontInfo*(VAR info: FontInfo)    0A8H,08BH;
  40.     PROCEDURE- RealFont*(fontNum: INTEGER;size: INTEGER): BOOLEAN    0A9H,002H;
  41.     PROCEDURE- SetFontLock*(lockFlag: BOOLEAN)    0A9H,003H;
  42.     PROCEDURE- SetFScaleDisable*(fscaleDisable: BOOLEAN)    0A8H,034H;
  43.     PROCEDURE- IsOutline*(numer: IM.Point;denom: IM.Point): BOOLEAN    070H,000H,0A8H,054H;
  44.     PROCEDURE- SetOutlinePreferred*(outlinePreferred: BOOLEAN)    070H,071H,0A8H,054H;
  45.     PROCEDURE- GetOutlinePreferred*(): BOOLEAN    070H,009H,0A8H,054H;
  46.     PROCEDURE- OutlineMetrics*(byteCount: INTEGER;textPtr: ME.Ptr;numer: IM.Point;
  47.         denom: IM.Point;VAR yMax: INTEGER;VAR yMin: INTEGER;awArray: ME.Ptr;lsbArray: ME.Ptr;
  48.         boundsArray: ME.Ptr): INTEGER    070H,008H,0A8H,054H;
  49.     PROCEDURE- SetPreserveGlyph*(preserveGlyph: BOOLEAN)    070H,00AH,0A8H,054H;
  50.     PROCEDURE- GetPreserveGlyph*(): BOOLEAN    070H,00BH,0A8H,054H;
  51.     PROCEDURE- FlushFonts*(): INTEGER    070H,00CH,0A8H,054H;
  52. (* Text Edit *)
  53.     PROCEDURE- TEInit*    0A9H, 0CCH;
  54.     PROCEDURE- TENew*(destRect, viewRect: IM.Rect): TEHandle 0A9H, 0D2H;
  55.     PROCEDURE- TEDispose*(hTE: TEHandle)    0A9H, 0CDH;
  56.     PROCEDURE- TEIdle*(hTE: TEHandle)    0A9H, 0DAH;
  57.     PROCEDURE- TEClick*(pt: IM.Point; extend: BOOLEAN; hTE: TEHandle)    0A9H, 0D4H;
  58.     PROCEDURE- TESetSelect*(selStart, selEnd: LONGINT; hTE: TEHandle)    0A9H, 0D1H;
  59.     PROCEDURE- TEActivate*(hTE: TEHandle)    0A9H, 0D8H;
  60.     PROCEDURE- TEDeactivate*(hTE: TEHandle)    0A9H, 0D9H;
  61.     PROCEDURE- TEKey*(key: INTEGER; hTE: TEHandle)    0A9H, 0DCH;
  62.     PROCEDURE- TECut*(hTE: TEHandle)    0A9H, 0D6H;
  63.     PROCEDURE- TECopy*(hTE: TEHandle)    0A9H, 0D5H;
  64.     PROCEDURE- TEPaste*(hTE: TEHandle)    0A9H, 0DBH;
  65.     PROCEDURE- TEDelete*(hTE: TEHandle)    0A9H, 0D7H;
  66.     PROCEDURE- TEInsert*(text: ME.Ptr; length: LONGINT; hTE: TEHandle)    0A9H, 0DEH;
  67.     PROCEDURE- TESetJust*(just: INTEGER; hTE: TEHandle)    0A9H, 0DFH;
  68.     PROCEDURE- TEUpdate*(rUpdate: IM.Rect; hTE: TEHandle)    0A9H, 0D3H;
  69.     PROCEDURE- TEScroll*(dh, dv: INTEGER; hTE: TEHandle)    0A9H, 0DDH;
  70.     PROCEDURE- TESelView*(hTE: TEHandle)    0A8H, 011H;
  71.     PROCEDURE- TEPinScroll*(dh, dv: INTEGER; hTE: TEHandle)    0A8H, 012H;
  72.     PROCEDURE- TEAutoView*(fAuto: BOOLEAN; hTE: TEHandle)    0A8H, 013H;
  73.     PROCEDURE- TESetText*(text: ME.Ptr;length: LONGINT;hTE: TEHandle)    0A9H,0CFH;
  74.     PROCEDURE- TEFeatureFlag*(feature: INTEGER;action: INTEGER;hTE: TEHandle): INTEGER 03FH,03CH,000H,00EH,0A8H,03DH;
  75. (* QuickDraw Text *)
  76.     PROCEDURE- TextFont*(font: INTEGER)    0A8H, 087H;
  77.     PROCEDURE- TextFace*(face: INTEGER)    0A8H, 088H;
  78.     PROCEDURE- TextMode*(fmode: INTEGER)    0A8H, 089H;
  79.     PROCEDURE- TextSize*(size: INTEGER)    0A8H, 08AH;
  80.     PROCEDURE- SpaceExtra*(extra: LONGINT)    0A8H,08EH;
  81.     PROCEDURE- CharExtra*(extra: LONGINT)    0AAH,023H;
  82.     PROCEDURE- DrawChar*(ch: INTEGER)    0A8H, 083H;
  83.     PROCEDURE- DrawString*(s: ME.Str255)    0A8H, 084H;
  84.     PROCEDURE- DrawText*(textBuf: ME.Ptr;firstByte: INTEGER;byteCount: INTEGER)    0A8H,085H;
  85.     PROCEDURE- CharWidth*(ch: INTEGER): INTEGER    0A8H, 08DH;
  86.     PROCEDURE- StringWidth*(s: ME.Str255): INTEGER    0A8H, 08CH;
  87.     PROCEDURE- TextWidth*(textBuf: ME.Ptr;firstByte: INTEGER;byteCount: INTEGER): INTEGER    0A8H,086H;
  88.     PROCEDURE- MeasureText*(count: INTEGER;textAddr: ME.Ptr;charLocs: ME.Ptr)    0A8H,037H;
  89. (* Text Utilities *)
  90.     PROCEDURE- NewString*(theString: ME.Str255): ME.StringHandle    0A9H,006H;
  91.     PROCEDURE- SetString*(theString: ME.StringHandle;strNew: ME.Str255)    0A9H,007H;
  92.     PROCEDURE- GetString*(stringID: INTEGER): ME.StringHandle    0A9H,0BAH;
  93.     PROCEDURE- TimeString*(dateTime: LONGINT;wantSeconds: BOOLEAN;VAR result: ME.Str255;
  94.         intlHandle: ME.Handle)    03FH,03CH,000H,010H,0A9H,0EDH;
  95.     PROCEDURE- DateString*(dateTime: LONGINT;longFlag: BOOLEAN;VAR result: ME.Str255;
  96.         intlHandle: ME.Handle)    03FH,03CH,000H,00EH,0A9H,0EDH;
  97.     PROCEDURE- NumToString*    042H,067H,0A9H,0EEH;
  98.     PROCEDURE- StringToNum*    03FH,03CH,000H,001H,0A9H,0EEH;
  99. (* Script Manager *)
  100.     PROCEDURE- LowerText*(textPtr: LONGINT;len: INTEGER)    030H,01FH,020H,05FH,0A0H,056H;
  101.     PROCEDURE- StripText*(textPtr: LONGINT;len: INTEGER)    030H,01FH,020H,05FH,0A2H,056H;
  102.     PROCEDURE- UpperText*(textPtr: LONGINT;len: INTEGER)    030H,01FH,020H,05FH,0A4H,056H;
  103.     PROCEDURE- StripUpperText*(textPtr: LONGINT;len: INTEGER)    030H,01FH,020H,05FH,0A6H,056H;
  104. END MacText.
  105.